Chip 2002 September/09_02.iso/software/mouse/Mousotronsetup.exe/{app}/Mousotron.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2002-06-30 | 14.2 KB | 630 lines

object Form1: TForm1
  Left = 253
  Top = 225
  AlphaBlend = True
  AlphaBlendValue = 100
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Form1'
  ClientHeight = 350
  ClientWidth = 194
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clYellow
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = True
  Position = poDesktopCenter
  Scaled = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image2: TImage
    Left = 152
    Top = 280
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.ico>}
  end
  object Image3: TImage
    Left = 152
    Top = 312
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image001.ico>}
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 151
    Height = 272
    BevelInner = bvRaised
    TabOrder = 0
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 147
      Height = 268
      Cursor = crHandPoint
      Align = alClient
      IncrementalDisplay = True
      PopupMenu = PopupMenu1
      Stretch = True
      OnMouseDown = Image1MouseDown
    end
    object led1: TIAeverLiquidIndicator
      Left = 7
      Top = 44
      Width = 44
      Height = 20
      ColorScheme = csTIAN
      SignNumber = 3
      IndicatorWidth = 44
      IndicatorHeight = 20
      InnerBevel = bkNone
      OuterBevel = bkNone
      BevelColor = clBlack
      BackColor = clBlack
      NumberForeColor = clLime
      NumberForeColor1 = clYellow
      NumberBackColor = clMaroon
      IndicatorStyle = isThin
      MouseAction = maColor
      MaterialShadowMode = msmLight
      OnMouseDown = Image1MouseDown
    end
    object led2: TIAeverLiquidIndicator
      Left = 54
      Top = 44
      Width = 57
      Height = 20
      ColorScheme = csTIAN
      SignNumber = 4
      IndicatorWidth = 57
      IndicatorHeight = 20
      InnerBevel = bkNone
      OuterBevel = bkNone
      BevelColor = clBlack
      BackColor = clBlack
      NumberForeColor = clLime
      NumberForeColor1 = clYellow
      NumberBackColor = clMaroon
      IndicatorStyle = isThin
      MouseAction = maColor
      MaterialShadowMode = msmLight
      OnMouseDown = Image1MouseDown
    end
    object led3: TIAeverLiquidIndicator
      Left = 114
      Top = 44
      Width = 30
      Height = 20
      ColorScheme = csBlack
      SignNumber = 2
      IndicatorWidth = 30
      IndicatorHeight = 20
      IndicatorKind = ik9segment
      InnerBevel = bkNone
      OuterBevel = bkNone
      BevelColor = clGray
      BackColor = clBlack
      NumberForeColor = clLime
      NumberForeColor1 = clYellow
      NumberBackColor = clMaroon
      IndicatorStyle = isThin
      MouseAction = maColor
      MaterialShadowMode = msmLight
      OnMouseDown = Image1MouseDown
    end
    object btnExit: TButton
      Left = 127
      Top = 6
      Width = 17
      Height = 16
      Hint = 'Close Program'
      Caption = 'r'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Marlett'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = btnExitClick
    end
    object btnMinimize: TButton
      Left = 108
      Top = 6
      Width = 17
      Height = 16
      Hint = 'Minimize'
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Marlett'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = btnMinimizeClick
    end
    object Panel2: TPanel
      Left = 7
      Top = 29
      Width = 44
      Height = 13
      BevelOuter = bvNone
      Caption = 'km'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 5
      OnMouseDown = Image1MouseDown
    end
    object Panel4: TPanel
      Left = 114
      Top = 29
      Width = 30
      Height = 13
      BevelOuter = bvNone
      Caption = 'cm'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 6
      OnMouseDown = Image1MouseDown
    end
    object btnHelp: TButton
      Left = 89
      Top = 6
      Width = 17
      Height = 16
      Hint = 'Help'
      HelpContext = 2
      Caption = 's'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Marlett'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = btnHelpClick
    end
    object btnSetup: TButton
      Left = 8
      Top = 6
      Width = 40
      Height = 16
      Hint = 'Setup'
      Caption = 'setup'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      OnClick = SetupMousotron1Click
    end
    object led4: TIAeverLiquidIndicator
      Left = 7
      Top = 84
      Width = 137
      Height = 20
      ColorScheme = csBlack
      IndicatorWidth = 137
      IndicatorHeight = 20
      InnerBevel = bkNone
      OuterBevel = bkNone
      BevelColor = clBlack
      BackColor = clBlack
      NumberForeColor = clLime
      NumberForeColor1 = clYellow
      NumberBackColor = clMaroon
      IndicatorStyle = isThin
      MouseAction = maColor
      MaterialShadowMode = msmLight
      OnMouseDown = Image1MouseDown
    end
    object pnlKeyStrokes: TPanel
      Left = 7
      Top = 69
      Width = 137
      Height = 13
      BevelOuter = bvNone
      Caption = 'keystrokes'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 10
      OnMouseDown = Image1MouseDown
    end
    object btnonoff: TButton
      Left = 53
      Top = 6
      Width = 31
      Height = 16
      Hint = 'Setup'
      Caption = 'on'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnClick = btnonoffClick
    end
    object pnlLeftBut: TPanel
      Left = 7
      Top = 109
      Width = 137
      Height = 13
      BevelOuter = bvNone
      Caption = 'left button'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 12
      OnMouseDown = Image1MouseDown
    end
    object led7: TIAeverLiquidIndicator
      Left = 7
      Top = 204
      Width = 137
      Height = 20
      ColorScheme = csTIAN
      IndicatorWidth = 137
      IndicatorHeight = 20
      InnerBevel = bkNone
      OuterBevel = bkNone
      BevelColor = clBlack
      BackColor = clBlack
      NumberForeColor = clLime
      NumberForeColor1 = clYellow
      NumberBackColor = clMaroon
      IndicatorStyle = isThin
      MouseAction = maColor
      MaterialShadowMode = msmLight
      OnMouseDown = Image1MouseDown
    end
    object led8: TIAeverLiquidIndicator
      Left = 7
      Top = 244
      Width = 137
      Height = 20
      ColorScheme = csTIAN
      IndicatorWidth = 137
      IndicatorHeight = 20
      InnerBevel = bkNone
      OuterBevel = bkNone
      BevelColor = clBlack
      BackColor = clBlack
      NumberForeColor = clLime
      NumberForeColor1 = clYellow
      NumberBackColor = clMaroon
      IndicatorStyle = isThin
      MouseAction = maColor
      MaterialShadowMode = msmLight
      OnMouseDown = Image1MouseDown
    end
    object pnlMidBut: TPanel
      Left = 7
      Top = 189
      Width = 137
      Height = 13
      BevelOuter = bvNone
      Caption = 'middle button'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 15
      OnMouseDown = Image1MouseDown
    end
    object pnlDBLClick: TPanel
      Left = 7
      Top = 229
      Width = 137
      Height = 13
      BevelOuter = bvNone
      Caption = 'double clicks'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 16
      OnMouseDown = Image1MouseDown
    end
    object pnlRightBut: TPanel
      Left = 6
      Top = 149
      Width = 137
      Height = 13
      BevelOuter = bvNone
      Caption = 'right button'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 17
      OnMouseDown = Image1MouseDown
    end
    object led6: TIAeverLiquidIndicator
      Left = 6
      Top = 164
      Width = 137
      Height = 20
      ColorScheme = csTIAN
      IndicatorWidth = 137
      IndicatorHeight = 20
      InnerBevel = bkNone
      OuterBevel = bkNone
      BevelColor = clBlack
      BackColor = clBlack
      NumberForeColor = clLime
      NumberForeColor1 = clYellow
      NumberBackColor = clMaroon
      IndicatorStyle = isThin
      MouseAction = maColor
      MaterialShadowMode = msmLight
      OnMouseDown = Image1MouseDown
    end
    object led5: TIAeverLiquidIndicator
      Left = 6
      Top = 124
      Width = 137
      Height = 20
      ColorScheme = csTIAN
      IndicatorWidth = 137
      IndicatorHeight = 20
      InnerBevel = bkNone
      OuterBevel = bkNone
      BevelColor = clBlack
      BackColor = clBlack
      NumberForeColor = clLime
      NumberForeColor1 = clYellow
      NumberBackColor = clMaroon
      IndicatorStyle = isThin
      MouseAction = maColor
      MaterialShadowMode = msmLight
      OnMouseDown = Image1MouseDown
    end
  end
  object Panel3: TPanel
    Left = 54
    Top = 29
    Width = 57
    Height = 13
    BevelOuter = bvNone
    Caption = 'm'
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 1
    OnMouseDown = Image1MouseDown
  end
  object tmrDistance: TTimer
    Interval = 75
    OnTimer = tmrDistanceTimer
    Left = 40
    Top = 312
  end
  object plasmatimer: TTimer
    Interval = 200
    OnTimer = plasmatimerTimer
    Left = 72
    Top = 280
  end
  object FormStorage1: TFormStorage
    Tag = 1
    IniFileName = 'Software'
    IniSection = 'BlackSun\Mousotron'
    MinMaxInfo.MinTrackHeight = 500
    Options = [fpPosition]
    RegistryRoot = prLocalMachine
    UseRegistry = True
    Version = 1
    StoredValues = <
      item
        Name = 'MonitorSize'
        Value = 15
      end
      item
        Name = 'DisplayMode'
        Value = False
      end
      item
        Name = 'Distance'
        Value = '0'
      end
      item
        Name = 'AlwaysOnTop'
        Value = False
      end
      item
        Name = 'KeyStrokes'
        Value = ''
      end
      item
        Name = 'LeftClicks'
        Value = ''
      end
      item
        Name = 'RightClicks'
        Value = ''
      end
      item
        Name = 'MidClicks'
        Value = ''
      end
      item
        Name = 'DblClicks'
        Value = ''
      end
      item
        Name = 'Animation'
        Value = False
      end
      item
        Name = 'col1'
        Value = 0
      end
      item
        Name = 'col2'
        Value = 0
      end
      item
        Name = 'col3'
        Value = 0
      end
      item
        Name = 'Running'
        Value = True
      end
      item
        Name = 'Visible'
        Value = True
      end
      item
        Name = 'DispItems'
        Value = '111111'
      end
      item
        Name = 'Orientation'
        Value = False
      end
      item
        Name = 'Digits'
        Value = 7
      end
      item
        Name = 'Language'
        Value = '0'
      end
      item
        Name = 'Transparent'
        Value = '0'
      end>
    Left = 8
    Top = 280
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 40
    Top = 280
    object HidePanel1: TMenuItem
      Caption = 'Hide Panel'
      OnClick = HidePanel1Click
    end
    object ShowMeter1: TMenuItem
      Caption = 'Show Panel'
      OnClick = ShowMeter1Click
    end
    object ResetCounter1: TMenuItem
      Caption = 'Reset Counters'
      OnClick = ResetCounter1Click
    end
    object SetupMousotron1: TMenuItem
      Caption = 'Setup Mousotron'
      OnClick = SetupMousotron1Click
    end
    object Help1: TMenuItem
      Caption = 'Help'
      OnClick = Help1Click
    end
    object Info1: TMenuItem
      Caption = 'Info'
      OnClick = Info1Click
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      OnClick = Exit1Click
    end
  end
  object tmrWriteValues: TTimer
    OnTimer = tmrWriteValuesTimer
    Left = 8
    Top = 313
  end
  object antTaskbarIcon1: TabfTrayIcon
    Icon.Data = {<image002.ico>}
    PopupMenu = PopupMenu1
    PopupByLeft = True
    Visible = True
    VisibleOnDesigning = True
    OnMouseMove = antTaskbarIcon1MouseMove
    Left = 104
    Top = 312
  end
  object abfOneInstance1: TabfOneInstance
    Left = 72
    Top = 312
  end
  object HelpRouter1: THelpRouter
    HelpType = htHTMLhelp
    ShowType = stMain
    CHMPopupTopics = 'CSHelp.txt'
    ValidateID = False
    Left = 152
    Top = 72
  end
end